home *** CD-ROM | disk | FTP | other *** search
/ Especial Multimedia / Especial Multimedia.iso / Multimed / Herra / TIMWIN.ZIP / SINUS.CMD < prev    next >
OS/2 REXX Batch file  |  1993-09-22  |  522b  |  35 lines
  1. ;sinus  --  experiment met sinus-lut
  2. ;
  3. int rood = 10
  4. int groen = 100
  5. int blauw = 200
  6. int stepr = 1
  7. int stepg = 3 
  8. int stepb = 5
  9. int err
  10.  
  11. while 1 == 1
  12.  
  13.  err = chk lut 2 15 15 rood groen blauw
  14.  
  15.  if (rood += stepr) > 353
  16.    stepr = rood - 361
  17.  elseif rood < 5
  18.    stepr = 5 -rood 
  19.  endif
  20.  
  21.  if (groen += stepg) > 353
  22.    stepg = groen - 361
  23.  elseif groen < 5
  24.    stepg = 5 -groen
  25.  endif
  26.  
  27.  if (blauw += stepb) > 353
  28.    stepb = blauw - 361
  29.  elseif blauw < 5
  30.    stepb = 5 - blauw
  31.  endif
  32.  
  33. endw
  34. stop
  35.